home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m1.d64 / math.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  170 lines
  1. 6 SC=0:B=53280:S=53281
  2. 10 PRINT"[147]":POKEB,0:POKES,11
  3. 11 PRINT"   PLEASE [129]TYPE [158]IN YOUR [154]FIRST [156]NAME."
  4. 12 PRINT"":POKES,1:INPUT"   ";A$
  5. 13 PRINT"            HI  "A$".":FORC=1TO2000:NEXT
  6. 15 PRINT"   [156]HOW IS YOUR ''MATH'' [156]TODAY ?"
  7. 16 FORC=1TO2500:NEXT
  8. 17 PRINT"[147]"
  9. 18 PRINT"      SHOW ME.  OK   "A$" ?":FORC=1TO2000:NEXT:GOSUB200
  10. 19 PRINT"[147]"
  11. 20 FORJ=1TO3
  12. 21 PRINT""
  13. 22 PRINT"                 [166][166]"
  14. 23 PRINT"                [166]  [166]"
  15. 24 PRINT"               [166]    [166]"
  16. 25 PRINT"                    [166]"
  17. 26 PRINT"                   [166]"
  18. 27 PRINT"                  [166]"
  19. 28 PRINT"                  [166]"
  20. 29 PRINT"                  [166]"
  21. 31 PRINT
  22. 33 PRINT"                  [166]"
  23. 35 FORC=1TO300:NEXT
  24. 37 PRINT"[147]":FORC=1TO 10:NEXTC:NEXTJ
  25. 38 ON V GOTO 400,500,600,700
  26. 51 M=INT(4*RND(1)+1):ONMGOTO52,53,54,55
  27. 52 PRINT"   THAT'S RIGHT "A$"!":GOTO58
  28. 53 PRINT"   VERY GOOD "A$"!":GOTO58
  29. 54 PRINT"   YES "A$"!":GOTO58
  30. 55 PRINT"   PERFECT "A$"!":GOTO58
  31. 58 SC=SC+1:PRINT"":PRINT"   SO FAR "A$", YOU HAVE":PRINT""
  32. 59 PRINT"  "SC;"OUT OF"Q"QUESTIONS RIGHT.":GOTO68
  33. 60 M=INT(4*RND(1)+1):ONMGOTO62,63,64,65
  34. 62 PRINT"   NO "A$"!":GOTO67
  35. 63 PRINT"   SORRY "A$"!":GOTO67
  36. 64 PRINT"   WRONG "A$"!":GOTO67
  37. 65 PRINT"   YOU NEED MORE PRACTICE "A$"!":GOTO67
  38. 67 PRINT"":PRINT"   THE RIGHT ANSWER IS:"X;S$;Y"="S
  39. 68 FORC=1TO4000:NEXTC:NEXTQ
  40. 80 PRINT"[147]"
  41. 81 PRINT"   "A$", YOUR FINAL SCORE IS:"
  42. 82 F=SC/(Q-1)*100+.5:F=INT(F)
  43. 83 PRINT"":PRINT"  "SC"OUT OF"Q-1"   OR    "F"%"
  44. 84 FORC=1TO4000:NEXT
  45. 89 IFSC=Q-1THEN100
  46. 90 FORL=1TO3
  47. 91 PRINT"[147]":FORC=1TO100:NEXT
  48. 92 PRINT""TAB(7)"PRACTICE"
  49. 93 PRINT""TAB(17)"MAKES"
  50. 94 PRINT""TAB(27)"PERFECT"
  51. 96 FORC=1TO1000:NEXT:NEXTL
  52. 97 END
  53. 100 FORL=1TO3
  54. 102 PRINT"[147]":FORC=1TO1 :NEXT
  55. 104 PRINT"                   [166][166]"
  56. 105 PRINT"                   [221][221]"
  57. 106 PRINT"                   [221][221]"
  58. 107 PRINT"   [166][166]              [221][221]"
  59. 108 PRINT"   [221][221]              [166][166]"
  60. 109 PRINT"   [221][221]       YOU            "
  61. 110 PRINT"   [166][166]                      "
  62. 111 PRINT"       [166][166]         ARE      "
  63. 112 PRINT"       [221][221]     [166][166]              "
  64. 113 PRINT"       [221][221]     [221][221]        NUMBER   "
  65. 114 PRINT"       [221][221]     [221][221]                 "
  66. 115 PRINT"       [221][221]     [166][166]               [166][166]"
  67. 116 PRINT"       [221][221]                      [221][221]"
  68. 117 PRINT"       [166][166]                      [221][221]"
  69. 118 PRINT"                               [221][221]"
  70. 119 PRINT"                               [221][221]"
  71. 120 PRINT"                               [221][221]"
  72. 121 PRINT"                               [221][221]"
  73. 122 PRINT"        CONGRATULATIONS!       [166][166]"
  74. 128 FORC=1TO 10:NEXT:NEXTL
  75. 130 END
  76. 200 PRINT"[147]"
  77. 202 PRINT"     HOW MANY QUESTIONS WOULD YOU"
  78. 204 PRINT"     LIKE "A$;:INPUT" ";N
  79. 208 PRINT"[147]"
  80. 210 PRINT"     WHAT GRADE ARE YOU IN"
  81. 212 PRINT"      ";A$;:INPUT" ";G
  82. 214 GOSUB300
  83. 216 IFG<=1THEN231
  84. 217 IFG<=2THEN232
  85. 219 IFG<=4THEN234
  86. 221 IFG<=6THEN236
  87. 222 GOTO237
  88. 231 GM=11:RETURN
  89. 232 GM=26:RETURN
  90. 234 GM=51:RETURN
  91. 236 GM=101:RETURN
  92. 237 GM=1001:RETURN
  93. 238 REM THIS PROGRAM WRITTEN BY MICHAEL
  94. 239 REM AND DAVID ZAVITZ   83.1.30
  95. 240 REM REVISED FOR C-64   83.11.30
  96. 241 REM COPYING FORBIDDEN WITHOUT
  97. 242 REM PRIOR APPROVAL!    439-2861
  98. 243 REM
  99. 244 REM
  100. 245 REM REVISED FOR 'TPUG' 84.1.20
  101. 246 REM
  102. 247 REM DIRECT COMMENTS TO:
  103. 248 REM
  104. 249 REM DAVID W. ZAVITZ
  105. 250 REM 56 PAR AVE
  106. 251 REM SCARBOROUGH ONT
  107. 252 REM M1G 2G6
  108. 253 REM
  109. 300 PRINT"[147]"
  110. 302 PRINT"         1[146]-ADDITION"
  111. 304 PRINT"         2[146]-SUBTRACTION"
  112. 306 PRINT"         3[146]-MULTIPLICATION"
  113. 308 PRINT"         4[146]-DIVISION"
  114. 310 PRINT"  PLEASE TYPE THE NUMBER[146] YOU WISH."
  115. 312 PRINT"":INPUT"  ";V:IFNOT(V=1ORV=2ORV=3ORV=4)THEN300
  116. 320 RETURN
  117. 400 YES=0:YAH=0
  118. 402 FORQ=1TON
  119. 404 PRINT"[147]"
  120. 406 X=INT(RND(1)*GM):Y=INT(RND(1)*(GM-X))
  121. 410 IFX=0ORY=0THENYES=YES+1:IFYES>2         THEN406
  122. 412 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN406
  123. 418 PRINT"  "X"+"Y" = ";:INPUTZ
  124. 420 PRINT""
  125. 422 S$="+":S=X+Y
  126. 424 IFZ<>STHEN60
  127. 426 GOTO51
  128. 500 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
  129. 502 FORQ=1TON
  130. 504 PRINT"[147]"
  131. 506 X=INT(RND(1)*GM):Y=INT(RND(1)*(X+1))
  132. 508 IFYL=YORYM=YOYYN=YTHEN506
  133. 510 IF X=0ORY=0ORX=YTHENYES=YES+1:          IFYES>2THEN506
  134. 512 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN506
  135. 514 YN=YM:YM=YL:YL=Y
  136. 518 PRINT"  "X"-"Y" = ";:INPUTZ
  137. 520 PRINT""
  138. 522 S$="-":S=X-Y
  139. 524 IFZ<>STHEN60
  140. 526 GOTO51
  141. 600 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
  142. 602 FORQ=1TON:T=TI
  143. 604 PRINT"[147]    PLEASE WAIT....I'M THINKING!"
  144. 606 X=INT(RND(1)*GM):X1=X:IFX=0THENX1=1
  145. 608 Y=INT(RND(1)*GM/X1):IFYL=YORYM=YOR       YN=YTHEN606
  146. 610 IFX=0ORY=0THENYES=YES+1:IFYES>2         THEN606
  147. 612 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN606
  148. 614 YN=YM:YM=YL:YL=Y
  149. 616 IFTI<T+90THEN616
  150. 618 PRINT"[147]  "X" X "Y" = ";:        INPUTZ
  151. 620 PRINT""
  152. 622 S$=" X ":S=X*Y:
  153. 624 IFZ<>STHEN60
  154. 626 GOTO51
  155. 700 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
  156. 702 FORQ=1TON:T=TI
  157. 704 PRINT"[147]    PLEASE WAIT....I'M THINKING!"
  158. 706 X=INT(RND(1)*(GM-1)+1)
  159. 708 Y=INT(RND(1)*X+1):IFNOTINT(X/Y)=X/Y     THEN708
  160. 710 IFYL=YORYM=YORYN=YTHEN706
  161. 712 IFX=YTHENYES=YES+1:IFYES>2THEN706
  162. 714 IFY=1THENYAH=YAH+1:IFYAH>2THEN706
  163. 715 YN=YM:YM=YL:YL=Y
  164. 716 IFTI<T+90THEN718
  165. 718 PRINT"[147]  "X" / "Y" = ";:        INPUTZ
  166. 720 PRINT""
  167. 722 S$=" / ":S=X/Y
  168. 724 IFZ<>STHEN60
  169. 726 GOTO51
  170.